/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / develop™ Technical Journal / develop Issue 6 code / TCP.sea / TCP / NewsWatcher / NW Source / Shared Code / Reusable Source / drawutil.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 64 72 61 77 75 74 | 69 6c 2e 63 00 00 00 00 |..drawut|il.c....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 01 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 33 20 00 | 00 01 9a ac 04 dc d1 ac |.....3 .|........|
|00000060| 04 dc d1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 38 f1 00 00 |........|....8...|
|00000080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |--------|------..|
|000000d0| 09 64 72 61 77 75 74 69 | 6c 2e 63 0d 0d 09 54 68 |.drawuti|l.c...Th|
|000000e0| 69 73 20 72 65 75 73 61 | 62 6c 65 20 6d 6f 64 75 |is reusa|ble modu|
|000000f0| 6c 65 20 63 6f 6e 74 61 | 69 6e 73 20 6d 69 73 63 |le conta|ins misc|
|00000100| 65 6c 6c 61 6e 65 6f 75 | 73 20 64 72 61 77 69 6e |ellaneou|s drawin|
|00000110| 67 20 75 74 69 6c 69 74 | 79 20 72 6f 75 74 69 6e |g utilit|y routin|
|00000120| 65 73 2e 0d 09 0d 09 43 | 6f 70 79 72 69 67 68 74 |es.....C|opyright|
|00000130| 20 a9 20 31 39 39 34 2d | 31 39 39 35 2c 20 4e 6f | . 1994-|1995, No|
|00000140| 72 74 68 77 65 73 74 65 | 72 6e 20 55 6e 69 76 65 |rthweste|rn Unive|
|00000150| 72 73 69 74 79 2e 0d 0d | 2d 2d 2d 2d 2d 2d 2d 2d |rsity...|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001a0| 2d 2d 2d 2d 2a 2f 0d 0d | 23 69 6e 63 6c 75 64 65 |----*/..|#include|
|000001b0| 20 3c 50 61 6c 65 74 74 | 65 73 2e 68 3e 0d 0d 23 | <Palett|es.h>..#|
|000001c0| 69 6e 63 6c 75 64 65 20 | 22 64 65 66 2e 68 22 0d |include |"def.h".|
|000001d0| 23 69 6e 63 6c 75 64 65 | 20 22 64 72 61 77 75 74 |#include| "drawut|
|000001e0| 69 6c 2e 68 22 0d 0d 0d | 0d 2f 2a 2d 2d 2d 2d 2d |il.h"...|./*-----|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000230| 2d 2d 2d 2d 2d 2d 2d 0d | 09 48 61 73 43 6f 6c 6f |-------.|.HasColo|
|00000240| 72 51 44 20 0d 09 0d 09 | 43 68 65 63 6b 20 74 6f |rQD ....|Check to|
|00000250| 20 73 65 65 20 69 66 20 | 63 6f 6c 6f 72 20 51 75 | see if |color Qu|
|00000260| 69 63 6b 44 72 61 77 20 | 69 73 20 61 76 61 69 6c |ickDraw |is avail|
|00000270| 61 62 6c 65 2e 0d 09 0d | 09 45 78 69 74 3a 09 66 |able....|.Exit:.f|
|00000280| 75 6e 63 74 69 6f 6e 20 | 72 65 73 75 6c 74 20 3d |unction |result =|
|00000290| 20 74 72 75 65 20 69 66 | 20 77 65 20 68 61 76 65 | true if| we have|
|000002a0| 20 63 6f 6c 6f 72 20 51 | 44 2e 0d 2d 2d 2d 2d 2d | color Q|D..-----|
|000002b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002f0| 2d 2d 2d 2d 2d 2d 2d 2a | 2f 0d 0d 42 6f 6f 6c 65 |-------*|/..Boole|
|00000300| 61 6e 20 48 61 73 43 6f | 6c 6f 72 51 44 20 28 76 |an HasCo|lorQD (v|
|00000310| 6f 69 64 29 0d 7b 0d 09 | 4f 53 45 72 72 20 65 72 |oid).{..|OSErr er|
|00000320| 72 20 3d 20 6e 6f 45 72 | 72 3b 0d 09 6c 6f 6e 67 |r = noEr|r;..long|
|00000330| 20 71 75 69 63 6b 64 72 | 61 77 56 65 72 73 69 6f | quickdr|awVersio|
|00000340| 6e 3b 0d 09 73 74 61 74 | 69 63 20 42 6f 6f 6c 65 |n;..stat|ic Boole|
|00000350| 61 6e 20 68 61 76 65 43 | 68 65 63 6b 65 64 20 3d |an haveC|hecked =|
|00000360| 20 66 61 6c 73 65 3b 0d | 09 73 74 61 74 69 63 20 | false;.|.static |
|00000370| 42 6f 6f 6c 65 61 6e 20 | 68 61 76 65 43 6f 6c 6f |Boolean |haveColo|
|00000380| 72 51 44 3b 0d 09 0d 09 | 69 66 20 28 21 68 61 76 |rQD;....|if (!hav|
|00000390| 65 43 68 65 63 6b 65 64 | 29 20 7b 0d 09 09 65 72 |eChecked|) {...er|
|000003a0| 72 20 3d 20 47 65 73 74 | 61 6c 74 28 67 65 73 74 |r = Gest|alt(gest|
|000003b0| 61 6c 74 51 75 69 63 6b | 64 72 61 77 56 65 72 73 |altQuick|drawVers|
|000003c0| 69 6f 6e 2c 20 26 71 75 | 69 63 6b 64 72 61 77 56 |ion, &qu|ickdrawV|
|000003d0| 65 72 73 69 6f 6e 29 3b | 0d 09 09 68 61 76 65 43 |ersion);|...haveC|
|000003e0| 6f 6c 6f 72 51 44 20 3d | 20 65 72 72 20 3d 3d 20 |olorQD =| err == |
|000003f0| 6e 6f 45 72 72 20 26 26 | 20 71 75 69 63 6b 64 72 |noErr &&| quickdr|
|00000400| 61 77 56 65 72 73 69 6f | 6e 20 3e 3d 20 67 65 73 |awVersio|n >= ges|
|00000410| 74 61 6c 74 38 42 69 74 | 51 44 3b 0d 09 7d 0d 09 |talt8Bit|QD;..}..|
|00000420| 72 65 74 75 72 6e 20 68 | 61 76 65 43 6f 6c 6f 72 |return h|aveColor|
|00000430| 51 44 3b 0d 7d 0d 0d 0d | 0d 2f 2a 2d 2d 2d 2d 2d |QD;.}...|./*-----|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000480| 2d 2d 2d 2d 2d 2d 2d 0d | 09 53 65 74 50 6f 72 74 |-------.|.SetPort|
|00000490| 54 65 78 74 53 74 79 6c | 65 20 0d 09 0d 09 53 65 |TextStyl|e ....Se|
|000004a0| 74 20 74 68 65 20 66 6f | 6e 74 2c 20 73 69 7a 65 |t the fo|nt, size|
|000004b0| 2c 20 61 6e 64 20 73 74 | 79 6c 65 20 6f 66 20 74 |, and st|yle of t|
|000004c0| 68 65 20 63 75 72 72 65 | 6e 74 20 70 6f 72 74 2e |he curre|nt port.|
|000004d0| 0d 09 09 09 0d 09 45 6e | 74 72 79 3a 09 2a 73 74 |......En|try:.*st|
|000004e0| 79 6c 65 20 3d 20 74 65 | 78 74 20 73 74 79 6c 65 |yle = te|xt style|
|000004f0| 20 72 65 63 6f 72 64 2e | 0d 2d 2d 2d 2d 2d 2d 2d | record.|.-------|
|00000500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000540| 2d 2d 2d 2d 2d 2a 2f 0d | 0d 76 6f 69 64 20 53 65 |-----*/.|.void Se|
|00000550| 74 50 6f 72 74 54 65 78 | 74 53 74 79 6c 65 20 28 |tPortTex|tStyle (|
|00000560| 54 65 78 74 53 74 79 6c | 65 20 2a 73 74 79 6c 65 |TextStyl|e *style|
|00000570| 29 0d 7b 0d 09 54 65 78 | 74 46 6f 6e 74 28 73 74 |).{..Tex|tFont(st|
|00000580| 79 6c 65 2d 3e 74 73 46 | 6f 6e 74 29 3b 0d 09 54 |yle->tsF|ont);..T|
|00000590| 65 78 74 46 61 63 65 28 | 73 74 79 6c 65 2d 3e 74 |extFace(|style->t|
|000005a0| 73 46 61 63 65 29 3b 0d | 09 54 65 78 74 53 69 7a |sFace);.|.TextSiz|
|000005b0| 65 28 73 74 79 6c 65 2d | 3e 74 73 53 69 7a 65 29 |e(style-|>tsSize)|
|000005c0| 3b 0d 7d 0d 0d 0d 0d 2f | 2a 2d 2d 2d 2d 2d 2d 2d |;.}..../|*-------|
|000005d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000610| 2d 2d 2d 2d 2d 0d 09 47 | 65 74 50 6f 72 74 54 65 |-----..G|etPortTe|
|00000620| 78 74 53 74 79 6c 65 20 | 0d 09 0d 09 47 65 74 20 |xtStyle |....Get |
|00000630| 74 68 65 20 66 6f 6e 74 | 2c 20 73 69 7a 65 2c 20 |the font|, size, |
|00000640| 61 6e 64 20 73 74 79 6c | 65 20 6f 66 20 74 68 65 |and styl|e of the|
|00000650| 20 63 75 72 72 65 6e 74 | 20 70 6f 72 74 2e 0d 09 | current| port...|
|00000660| 09 09 0d 09 45 78 69 74 | 3a 09 2a 73 74 79 6c 65 |....Exit|:.*style|
|00000670| 20 3d 20 74 65 78 74 20 | 73 74 79 6c 65 20 72 65 | = text |style re|
|00000680| 63 6f 72 64 2e 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |cord..--|--------|
|00000690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006d0| 2d 2d 2a 2f 0d 0d 76 6f | 69 64 20 47 65 74 50 6f |--*/..vo|id GetPo|
|000006e0| 72 74 54 65 78 74 53 74 | 79 6c 65 20 28 54 65 78 |rtTextSt|yle (Tex|
|000006f0| 74 53 74 79 6c 65 20 2a | 73 74 79 6c 65 29 0d 7b |tStyle *|style).{|
|00000700| 0d 09 73 74 79 6c 65 2d | 3e 74 73 46 6f 6e 74 20 |..style-|>tsFont |
|00000710| 3d 20 71 64 2e 74 68 65 | 50 6f 72 74 2d 3e 74 78 |= qd.the|Port->tx|
|00000720| 46 6f 6e 74 3b 0d 09 73 | 74 79 6c 65 2d 3e 74 73 |Font;..s|tyle->ts|
|00000730| 46 61 63 65 20 3d 20 71 | 64 2e 74 68 65 50 6f 72 |Face = q|d.thePor|
|00000740| 74 2d 3e 74 78 46 61 63 | 65 3b 0d 09 73 74 79 6c |t->txFac|e;..styl|
|00000750| 65 2d 3e 74 73 53 69 7a | 65 20 3d 20 71 64 2e 74 |e->tsSiz|e = qd.t|
|00000760| 68 65 50 6f 72 74 2d 3e | 74 78 53 69 7a 65 3b 0d |hePort->|txSize;.|
|00000770| 7d 0d 0d 0d 0d 2f 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}..../*-|--------|
|00000780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007c0| 2d 2d 2d 0d 09 44 72 61 | 77 47 72 61 79 52 65 63 |---..Dra|wGrayRec|
|000007d0| 74 20 0d 09 0d 09 44 72 | 61 77 20 61 20 67 72 61 |t ....Dr|aw a gra|
|000007e0| 79 20 72 65 63 74 61 6e | 67 6c 65 2e 0d 09 09 09 |y rectan|gle.....|
|000007f0| 0d 09 45 6e 74 72 79 3a | 09 72 20 3d 20 70 6f 69 |..Entry:|.r = poi|
|00000800| 6e 74 65 72 20 74 6f 20 | 72 65 63 74 61 6e 67 6c |nter to |rectangl|
|00000810| 65 2e 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |e..-----|--------|
|00000820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a |--------|-------*|
|00000860| 2f 0d 0d 73 74 61 74 69 | 63 20 70 61 73 63 61 6c |/..stati|c pascal|
|00000870| 20 76 6f 69 64 20 44 72 | 61 77 47 72 61 79 52 65 | void Dr|awGrayRe|
|00000880| 63 74 4f 6e 65 44 65 70 | 74 68 20 28 73 68 6f 72 |ctOneDep|th (shor|
|00000890| 74 20 64 65 70 74 68 2c | 20 73 68 6f 72 74 20 64 |t depth,| short d|
|000008a0| 65 76 69 63 65 46 6c 61 | 67 73 2c 0d 09 47 44 48 |eviceFla|gs,..GDH|
|000008b0| 61 6e 64 6c 65 20 74 61 | 72 67 65 74 44 65 76 69 |andle ta|rgetDevi|
|000008c0| 63 65 2c 20 6c 6f 6e 67 | 20 75 73 65 72 44 61 74 |ce, long| userDat|
|000008d0| 61 29 0d 7b 0d 09 52 47 | 42 43 6f 6c 6f 72 20 66 |a).{..RG|BColor f|
|000008e0| 67 2c 20 62 67 2c 20 67 | 3b 0d 09 0d 09 69 66 20 |g, bg, g|;....if |
|000008f0| 28 74 61 72 67 65 74 44 | 65 76 69 63 65 20 21 3d |(targetD|evice !=|
|00000900| 20 6e 69 6c 29 20 7b 0d | 09 09 47 65 74 46 6f 72 | nil) {.|..GetFor|
|00000910| 65 43 6f 6c 6f 72 28 26 | 66 67 29 3b 0d 09 09 47 |eColor(&|fg);...G|
|00000920| 65 74 42 61 63 6b 43 6f | 6c 6f 72 28 26 62 67 29 |etBackCo|lor(&bg)|
|00000930| 3b 0d 09 09 67 20 3d 20 | 66 67 3b 0d 09 09 69 66 |;...g = |fg;...if|
|00000940| 20 28 47 65 74 47 72 61 | 79 28 74 61 72 67 65 74 | (GetGra|y(target|
|00000950| 44 65 76 69 63 65 2c 20 | 26 62 67 2c 20 26 67 29 |Device, |&bg, &g)|
|00000960| 29 20 7b 0d 09 09 09 52 | 47 42 46 6f 72 65 43 6f |) {....R|GBForeCo|
|00000970| 6c 6f 72 28 26 67 29 3b | 0d 09 09 09 46 72 61 6d |lor(&g);|....Fram|
|00000980| 65 52 65 63 74 28 28 52 | 65 63 74 2a 29 75 73 65 |eRect((R|ect*)use|
|00000990| 72 44 61 74 61 29 3b 0d | 09 09 09 52 47 42 46 6f |rData);.|...RGBFo|
|000009a0| 72 65 43 6f 6c 6f 72 28 | 26 66 67 29 3b 0d 09 09 |reColor(|&fg);...|
|000009b0| 09 72 65 74 75 72 6e 3b | 0d 09 09 7d 0d 09 7d 0d |.return;|...}..}.|
|000009c0| 09 50 65 6e 50 61 74 28 | 26 71 64 2e 67 72 61 79 |.PenPat(|&qd.gray|
|000009d0| 29 3b 0d 09 46 72 61 6d | 65 52 65 63 74 28 28 52 |);..Fram|eRect((R|
|000009e0| 65 63 74 2a 29 75 73 65 | 72 44 61 74 61 29 3b 0d |ect*)use|rData);.|
|000009f0| 09 50 65 6e 50 61 74 28 | 26 71 64 2e 62 6c 61 63 |.PenPat(|&qd.blac|
|00000a00| 6b 29 3b 0d 7d 0d 0d 76 | 6f 69 64 20 44 72 61 77 |k);.}..v|oid Draw|
|00000a10| 47 72 61 79 52 65 63 74 | 20 28 52 65 63 74 20 2a |GrayRect| (Rect *|
|00000a20| 72 29 0d 7b 0d 09 73 74 | 61 74 69 63 20 44 65 76 |r).{..st|atic Dev|
|00000a30| 69 63 65 4c 6f 6f 70 44 | 72 61 77 69 6e 67 55 50 |iceLoopD|rawingUP|
|00000a40| 50 20 75 70 70 20 3d 20 | 6e 69 6c 3b 0d 0d 09 69 |P upp = |nil;...i|
|00000a50| 66 20 28 75 70 70 20 3d | 3d 20 6e 69 6c 29 20 75 |f (upp =|= nil) u|
|00000a60| 70 70 20 3d 20 4e 65 77 | 44 65 76 69 63 65 4c 6f |pp = New|DeviceLo|
|00000a70| 6f 70 44 72 61 77 69 6e | 67 50 72 6f 63 28 44 72 |opDrawin|gProc(Dr|
|00000a80| 61 77 47 72 61 79 52 65 | 63 74 4f 6e 65 44 65 70 |awGrayRe|ctOneDep|
|00000a90| 74 68 29 3b 0d 09 44 65 | 76 69 63 65 4c 6f 6f 70 |th);..De|viceLoop|
|00000aa0| 28 71 64 2e 74 68 65 50 | 6f 72 74 2d 3e 76 69 73 |(qd.theP|ort->vis|
|00000ab0| 52 67 6e 2c 20 75 70 70 | 2c 20 28 6c 6f 6e 67 29 |Rgn, upp|, (long)|
|00000ac0| 72 2c 20 30 29 3b 0d 7d | 0d 0d 0d 0d 2f 2a 2d 2d |r, 0);.}|..../*--|
|00000ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 09 44 72 61 77 |--------|--..Draw|
|00000b20| 47 72 61 79 52 6f 75 6e | 64 52 65 63 74 20 0d 09 |GrayRoun|dRect ..|
|00000b30| 0d 09 44 72 61 77 20 61 | 20 67 72 61 79 20 72 6f |..Draw a| gray ro|
|00000b40| 75 6e 64 20 72 65 63 74 | 61 6e 67 6c 65 2e 0d 09 |und rect|angle...|
|00000b50| 09 09 0d 09 45 6e 74 72 | 79 3a 09 72 20 3d 20 70 |....Entr|y:.r = p|
|00000b60| 6f 69 6e 74 65 72 20 74 | 6f 20 72 65 63 74 61 6e |ointer t|o rectan|
|00000b70| 67 6c 65 2e 0d 09 09 09 | 6f 76 61 6c 57 69 64 74 |gle.....|ovalWidt|
|00000b80| 68 20 3d 20 6f 76 61 6c | 20 77 69 64 74 68 2e 0d |h = oval| width..|
|00000b90| 09 09 09 6f 76 61 6c 48 | 65 69 67 68 74 20 3d 20 |...ovalH|eight = |
|00000ba0| 6f 76 61 6c 20 68 65 69 | 67 68 74 2e 0d 2d 2d 2d |oval hei|ght..---|
|00000bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0d 74 79 70 |--------|-*/..typ|
|00000c00| 65 64 65 66 20 73 74 72 | 75 63 74 20 54 44 72 61 |edef str|uct TDra|
|00000c10| 77 47 72 61 79 52 6f 75 | 6e 64 52 65 63 74 55 73 |wGrayRou|ndRectUs|
|00000c20| 65 72 44 61 74 61 20 7b | 0d 09 52 65 63 74 20 2a |erData {|..Rect *|
|00000c30| 72 3b 0d 09 73 68 6f 72 | 74 20 6f 76 61 6c 57 69 |r;..shor|t ovalWi|
|00000c40| 64 74 68 3b 0d 09 73 68 | 6f 72 74 20 6f 76 61 6c |dth;..sh|ort oval|
|00000c50| 48 65 69 67 68 74 3b 0d | 7d 20 54 44 72 61 77 47 |Height;.|} TDrawG|
|00000c60| 72 61 79 52 6f 75 6e 64 | 52 65 63 74 55 73 65 72 |rayRound|RectUser|
|00000c70| 44 61 74 61 3b 0d 0d 73 | 74 61 74 69 63 20 70 61 |Data;..s|tatic pa|
|00000c80| 73 63 61 6c 20 76 6f 69 | 64 20 44 72 61 77 47 72 |scal voi|d DrawGr|
|00000c90| 61 79 52 6f 75 6e 64 52 | 65 63 74 4f 6e 65 44 65 |ayRoundR|ectOneDe|
|00000ca0| 70 74 68 20 28 73 68 6f | 72 74 20 64 65 70 74 68 |pth (sho|rt depth|
|00000cb0| 2c 20 73 68 6f 72 74 20 | 64 65 76 69 63 65 46 6c |, short |deviceFl|
|00000cc0| 61 67 73 2c 0d 09 47 44 | 48 61 6e 64 6c 65 20 74 |ags,..GD|Handle t|
|00000cd0| 61 72 67 65 74 44 65 76 | 69 63 65 2c 20 6c 6f 6e |argetDev|ice, lon|
|00000ce0| 67 20 75 73 65 72 44 61 | 74 61 29 0d 7b 0d 09 52 |g userDa|ta).{..R|
|00000cf0| 47 42 43 6f 6c 6f 72 20 | 66 67 2c 20 62 67 2c 20 |GBColor |fg, bg, |
|00000d00| 67 3b 0d 09 54 44 72 61 | 77 47 72 61 79 52 6f 75 |g;..TDra|wGrayRou|
|00000d10| 6e 64 52 65 63 74 55 73 | 65 72 44 61 74 61 20 2a |ndRectUs|erData *|
|00000d20| 75 64 3b 0d 09 0d 09 75 | 64 20 3d 20 28 54 44 72 |ud;....u|d = (TDr|
|00000d30| 61 77 47 72 61 79 52 6f | 75 6e 64 52 65 63 74 55 |awGrayRo|undRectU|
|00000d40| 73 65 72 44 61 74 61 2a | 29 75 73 65 72 44 61 74 |serData*|)userDat|
|00000d50| 61 3b 0d 09 69 66 20 28 | 74 61 72 67 65 74 44 65 |a;..if (|targetDe|
|00000d60| 76 69 63 65 20 21 3d 20 | 6e 69 6c 29 20 7b 0d 09 |vice != |nil) {..|
|00000d70| 09 47 65 74 46 6f 72 65 | 43 6f 6c 6f 72 28 26 66 |.GetFore|Color(&f|
|00000d80| 67 29 3b 0d 09 09 47 65 | 74 42 61 63 6b 43 6f 6c |g);...Ge|tBackCol|
|00000d90| 6f 72 28 26 62 67 29 3b | 0d 09 09 67 20 3d 20 66 |or(&bg);|...g = f|
|00000da0| 67 3b 0d 09 09 69 66 20 | 28 47 65 74 47 72 61 79 |g;...if |(GetGray|
|00000db0| 28 74 61 72 67 65 74 44 | 65 76 69 63 65 2c 20 26 |(targetD|evice, &|
|00000dc0| 62 67 2c 20 26 67 29 29 | 20 7b 0d 09 09 09 52 47 |bg, &g))| {....RG|
|00000dd0| 42 46 6f 72 65 43 6f 6c | 6f 72 28 26 67 29 3b 0d |BForeCol|or(&g);.|
|00000de0| 09 09 09 46 72 61 6d 65 | 52 6f 75 6e 64 52 65 63 |...Frame|RoundRec|
|00000df0| 74 28 75 64 2d 3e 72 2c | 20 75 64 2d 3e 6f 76 61 |t(ud->r,| ud->ova|
|00000e00| 6c 57 69 64 74 68 2c 20 | 75 64 2d 3e 6f 76 61 6c |lWidth, |ud->oval|
|00000e10| 48 65 69 67 68 74 29 3b | 0d 09 09 09 52 47 42 46 |Height);|....RGBF|
|00000e20| 6f 72 65 43 6f 6c 6f 72 | 28 26 66 67 29 3b 0d 09 |oreColor|(&fg);..|
|00000e30| 09 09 72 65 74 75 72 6e | 3b 0d 09 09 7d 0d 09 7d |..return|;...}..}|
|00000e40| 0d 09 50 65 6e 50 61 74 | 28 26 71 64 2e 67 72 61 |..PenPat|(&qd.gra|
|00000e50| 79 29 3b 0d 09 46 72 61 | 6d 65 52 6f 75 6e 64 52 |y);..Fra|meRoundR|
|00000e60| 65 63 74 28 75 64 2d 3e | 72 2c 20 75 64 2d 3e 6f |ect(ud->|r, ud->o|
|00000e70| 76 61 6c 57 69 64 74 68 | 2c 20 75 64 2d 3e 6f 76 |valWidth|, ud->ov|
|00000e80| 61 6c 48 65 69 67 68 74 | 29 3b 0d 09 50 65 6e 50 |alHeight|);..PenP|
|00000e90| 61 74 28 26 71 64 2e 62 | 6c 61 63 6b 29 3b 0d 7d |at(&qd.b|lack);.}|
|00000ea0| 0d 0d 76 6f 69 64 20 44 | 72 61 77 47 72 61 79 52 |..void D|rawGrayR|
|00000eb0| 6f 75 6e 64 52 65 63 74 | 20 28 52 65 63 74 20 2a |oundRect| (Rect *|
|00000ec0| 72 2c 20 73 68 6f 72 74 | 20 6f 76 61 6c 57 69 64 |r, short| ovalWid|
|00000ed0| 74 68 2c 20 73 68 6f 72 | 74 20 6f 76 61 6c 48 65 |th, shor|t ovalHe|
|00000ee0| 69 67 68 74 29 0d 7b 0d | 09 73 74 61 74 69 63 20 |ight).{.|.static |
|00000ef0| 44 65 76 69 63 65 4c 6f | 6f 70 44 72 61 77 69 6e |DeviceLo|opDrawin|
|00000f00| 67 55 50 50 20 75 70 70 | 20 3d 20 6e 69 6c 3b 0d |gUPP upp| = nil;.|
|00000f10| 09 54 44 72 61 77 47 72 | 61 79 52 6f 75 6e 64 52 |.TDrawGr|ayRoundR|
|00000f20| 65 63 74 55 73 65 72 44 | 61 74 61 20 75 64 3b 0d |ectUserD|ata ud;.|
|00000f30| 0d 09 75 64 2e 72 20 3d | 20 72 3b 0d 09 75 64 2e |..ud.r =| r;..ud.|
|00000f40| 6f 76 61 6c 57 69 64 74 | 68 20 3d 20 6f 76 61 6c |ovalWidt|h = oval|
|00000f50| 57 69 64 74 68 3b 0d 09 | 75 64 2e 6f 76 61 6c 48 |Width;..|ud.ovalH|
|00000f60| 65 69 67 68 74 20 3d 20 | 6f 76 61 6c 48 65 69 67 |eight = |ovalHeig|
|00000f70| 68 74 3b 0d 09 69 66 20 | 28 75 70 70 20 3d 3d 20 |ht;..if |(upp == |
|00000f80| 6e 69 6c 29 20 75 70 70 | 20 3d 20 4e 65 77 44 65 |nil) upp| = NewDe|
|00000f90| 76 69 63 65 4c 6f 6f 70 | 44 72 61 77 69 6e 67 50 |viceLoop|DrawingP|
|00000fa0| 72 6f 63 28 44 72 61 77 | 47 72 61 79 52 6f 75 6e |roc(Draw|GrayRoun|
|00000fb0| 64 52 65 63 74 4f 6e 65 | 44 65 70 74 68 29 3b 0d |dRectOne|Depth);.|
|00000fc0| 09 44 65 76 69 63 65 4c | 6f 6f 70 28 71 64 2e 74 |.DeviceL|oop(qd.t|
|00000fd0| 68 65 50 6f 72 74 2d 3e | 76 69 73 52 67 6e 2c 20 |hePort->|visRgn, |
|00000fe0| 75 70 70 2c 20 28 6c 6f | 6e 67 29 26 75 64 2c 20 |upp, (lo|ng)&ud, |
|00000ff0| 30 29 3b 0d 7d 0d 0d 0d | 0d 2f 2a 2d 2d 2d 2d 2d |0);.}...|./*-----|
|00001000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001040| 2d 2d 2d 2d 2d 2d 2d 0d | 09 44 72 61 77 43 6f 6c |-------.|.DrawCol|
|00001050| 6f 72 50 69 63 74 20 0d | 09 0d 09 44 72 61 77 20 |orPict .|...Draw |
|00001060| 61 20 63 6f 6c 6f 72 20 | 70 69 63 74 75 72 65 2e |a color |picture.|
|00001070| 0d 09 09 09 0d 09 45 6e | 74 72 79 3a 09 63 6f 6c |......En|try:.col|
|00001080| 6f 72 49 44 20 3d 20 72 | 65 73 6f 75 72 63 65 20 |orID = r|esource |
|00001090| 69 64 20 6f 66 20 63 6f | 6c 6f 72 20 76 65 72 73 |id of co|lor vers|
|000010a0| 69 6f 6e 20 6f 66 20 50 | 49 43 54 2e 0d 09 09 09 |ion of P|ICT.....|
|000010b0| 62 77 49 44 20 3d 20 72 | 65 73 6f 75 72 63 65 20 |bwID = r|esource |
|000010c0| 69 64 20 6f 66 20 62 6c | 61 63 6b 20 61 6e 64 20 |id of bl|ack and |
|000010d0| 77 68 69 74 65 20 76 65 | 72 73 69 6f 6e 20 6f 66 |white ve|rsion of|
|000010e0| 20 50 49 43 54 2e 0d 09 | 09 09 72 20 3d 20 70 6f | PICT...|..r = po|
|000010f0| 69 6e 74 65 72 20 74 6f | 20 72 65 63 74 61 6e 67 |inter to| rectang|
|00001100| 6c 65 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |le..----|--------|
|00001110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001150| 2a 2f 0d 0d 74 79 70 65 | 64 65 66 20 73 74 72 75 |*/..type|def stru|
|00001160| 63 74 20 54 44 72 61 77 | 43 6f 6c 6f 72 50 69 63 |ct TDraw|ColorPic|
|00001170| 74 55 73 65 72 44 61 74 | 61 20 7b 0d 09 73 68 6f |tUserDat|a {..sho|
|00001180| 72 74 20 63 6f 6c 6f 72 | 49 44 3b 0d 09 73 68 6f |rt color|ID;..sho|
|00001190| 72 74 20 62 77 49 44 3b | 0d 09 52 65 63 74 20 2a |rt bwID;|..Rect *|
|000011a0| 72 3b 0d 7d 20 54 44 72 | 61 77 43 6f 6c 6f 72 50 |r;.} TDr|awColorP|
|000011b0| 69 63 74 55 73 65 72 44 | 61 74 61 3b 0d 0d 73 74 |ictUserD|ata;..st|
|000011c0| 61 74 69 63 20 70 61 73 | 63 61 6c 20 76 6f 69 64 |atic pas|cal void|
|000011d0| 20 44 72 61 77 43 6f 6c | 6f 72 50 69 63 74 4f 6e | DrawCol|orPictOn|
|000011e0| 65 44 65 70 74 68 20 28 | 73 68 6f 72 74 20 64 65 |eDepth (|short de|
|000011f0| 70 74 68 2c 20 73 68 6f | 72 74 20 64 65 76 69 63 |pth, sho|rt devic|
|00001200| 65 46 6c 61 67 73 2c 0d | 09 47 44 48 61 6e 64 6c |eFlags,.|.GDHandl|
|00001210| 65 20 74 61 72 67 65 74 | 44 65 76 69 63 65 2c 20 |e target|Device, |
|00001220| 6c 6f 6e 67 20 75 73 65 | 72 44 61 74 61 29 0d 7b |long use|rData).{|
|00001230| 0d 09 54 44 72 61 77 43 | 6f 6c 6f 72 50 69 63 74 |..TDrawC|olorPict|
|00001240| 55 73 65 72 44 61 74 61 | 20 2a 75 64 3b 0d 09 0d |UserData| *ud;...|
|00001250| 09 75 64 20 3d 20 28 54 | 44 72 61 77 43 6f 6c 6f |.ud = (T|DrawColo|
|00001260| 72 50 69 63 74 55 73 65 | 72 44 61 74 61 2a 29 75 |rPictUse|rData*)u|
|00001270| 73 65 72 44 61 74 61 3b | 0d 09 69 66 20 28 74 61 |serData;|..if (ta|
|00001280| 72 67 65 74 44 65 76 69 | 63 65 20 21 3d 20 6e 69 |rgetDevi|ce != ni|
|00001290| 6c 20 26 26 20 64 65 70 | 74 68 20 3e 20 32 29 20 |l && dep|th > 2) |
|000012a0| 7b 0d 09 09 44 72 61 77 | 50 69 63 74 75 72 65 28 |{...Draw|Picture(|
|000012b0| 47 65 74 50 69 63 74 75 | 72 65 28 75 64 2d 3e 63 |GetPictu|re(ud->c|
|000012c0| 6f 6c 6f 72 49 44 29 2c | 20 75 64 2d 3e 72 29 3b |olorID),| ud->r);|
|000012d0| 0d 09 7d 20 65 6c 73 65 | 20 7b 0d 09 09 44 72 61 |..} else| {...Dra|
|000012e0| 77 50 69 63 74 75 72 65 | 28 47 65 74 50 69 63 74 |wPicture|(GetPict|
|000012f0| 75 72 65 28 75 64 2d 3e | 62 77 49 44 29 2c 20 75 |ure(ud->|bwID), u|
|00001300| 64 2d 3e 72 29 3b 0d 09 | 7d 0d 7d 0d 0d 76 6f 69 |d->r);..|}.}..voi|
|00001310| 64 20 44 72 61 77 43 6f | 6c 6f 72 50 69 63 74 20 |d DrawCo|lorPict |
|00001320| 28 73 68 6f 72 74 20 63 | 6f 6c 6f 72 49 44 2c 20 |(short c|olorID, |
|00001330| 73 68 6f 72 74 20 62 77 | 49 44 2c 20 52 65 63 74 |short bw|ID, Rect|
|00001340| 20 2a 72 29 0d 7b 0d 09 | 54 44 72 61 77 43 6f 6c | *r).{..|TDrawCol|
|00001350| 6f 72 50 69 63 74 55 73 | 65 72 44 61 74 61 20 75 |orPictUs|erData u|
|00001360| 64 3b 0d 09 73 74 61 74 | 69 63 20 44 65 76 69 63 |d;..stat|ic Devic|
|00001370| 65 4c 6f 6f 70 44 72 61 | 77 69 6e 67 55 50 50 20 |eLoopDra|wingUPP |
|00001380| 75 70 70 20 3d 20 6e 69 | 6c 3b 0d 0d 09 75 64 2e |upp = ni|l;...ud.|
|00001390| 63 6f 6c 6f 72 49 44 20 | 3d 20 63 6f 6c 6f 72 49 |colorID |= colorI|
|000013a0| 44 3b 0d 09 75 64 2e 62 | 77 49 44 20 3d 20 62 77 |D;..ud.b|wID = bw|
|000013b0| 49 44 3b 0d 09 75 64 2e | 72 20 3d 20 72 3b 0d 09 |ID;..ud.|r = r;..|
|000013c0| 69 66 20 28 75 70 70 20 | 3d 3d 20 6e 69 6c 29 20 |if (upp |== nil) |
|000013d0| 75 70 70 20 3d 20 4e 65 | 77 44 65 76 69 63 65 4c |upp = Ne|wDeviceL|
|000013e0| 6f 6f 70 44 72 61 77 69 | 6e 67 50 72 6f 63 28 44 |oopDrawi|ngProc(D|
|000013f0| 72 61 77 43 6f 6c 6f 72 | 50 69 63 74 4f 6e 65 44 |rawColor|PictOneD|
|00001400| 65 70 74 68 29 3b 0d 09 | 44 65 76 69 63 65 4c 6f |epth);..|DeviceLo|
|00001410| 6f 70 28 71 64 2e 74 68 | 65 50 6f 72 74 2d 3e 76 |op(qd.th|ePort->v|
|00001420| 69 73 52 67 6e 2c 20 75 | 70 70 2c 20 28 6c 6f 6e |isRgn, u|pp, (lon|
|00001430| 67 29 26 75 64 2c 20 30 | 29 3b 0d 7d 0d 0d 0d 0d |g)&ud, 0|);.}....|
|00001440| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00001450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 09 |--------|------..|
|00001490| 46 69 6c 6c 43 6f 6c 6f | 72 50 6f 6c 79 20 0d 09 |FillColo|rPoly ..|
|000014a0| 0d 09 46 69 6c 6c 20 61 | 20 70 6f 6c 79 67 6f 6e |..Fill a| polygon|
|000014b0| 20 69 6e 20 63 6f 6c 6f | 72 2e 0d 09 09 09 0d 09 | in colo|r.......|
|000014c0| 45 6e 74 72 79 3a 09 70 | 6f 6c 79 20 3d 20 68 61 |Entry:.p|oly = ha|
|000014d0| 6e 64 6c 65 20 74 6f 20 | 70 6f 6c 79 67 6f 6e 2e |ndle to |polygon.|
|000014e0| 0d 09 09 09 63 6f 6c 6f | 72 20 3d 20 70 6f 69 6e |....colo|r = poin|
|000014f0| 74 65 72 20 74 6f 20 63 | 6f 6c 6f 72 2e 0d 09 09 |ter to c|olor....|
|00001500| 09 70 61 74 20 3d 20 70 | 61 74 74 65 72 6e 2e 0d |.pat = p|attern..|
|00001510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 2f 0d 0d |--------|----*/..|
|00001560| 74 79 70 65 64 65 66 20 | 73 74 72 75 63 74 20 54 |typedef |struct T|
|00001570| 46 69 6c 6c 43 6f 6c 6f | 72 50 6f 6c 79 55 73 65 |FillColo|rPolyUse|
|00001580| 72 44 61 74 61 20 7b 0d | 09 50 6f 6c 79 48 61 6e |rData {.|.PolyHan|
|00001590| 64 6c 65 20 70 6f 6c 79 | 3b 0d 09 52 47 42 43 6f |dle poly|;..RGBCo|
|000015a0| 6c 6f 72 20 2a 63 6f 6c | 6f 72 3b 0d 09 43 6f 6e |lor *col|or;..Con|
|000015b0| 73 74 50 61 74 74 65 72 | 6e 50 61 72 61 6d 20 70 |stPatter|nParam p|
|000015c0| 61 74 3b 0d 7d 20 54 46 | 69 6c 6c 43 6f 6c 6f 72 |at;.} TF|illColor|
|000015d0| 50 6f 6c 79 55 73 65 72 | 44 61 74 61 3b 0d 0d 73 |PolyUser|Data;..s|
|000015e0| 74 61 74 69 63 20 70 61 | 73 63 61 6c 20 76 6f 69 |tatic pa|scal voi|
|000015f0| 64 20 46 69 6c 6c 43 6f | 6c 6f 72 50 6f 6c 79 4f |d FillCo|lorPolyO|
|00001600| 6e 65 44 65 70 74 68 20 | 28 73 68 6f 72 74 20 64 |neDepth |(short d|
|00001610| 65 70 74 68 2c 20 73 68 | 6f 72 74 20 64 65 76 69 |epth, sh|ort devi|
|00001620| 63 65 46 6c 61 67 73 2c | 0d 09 47 44 48 61 6e 64 |ceFlags,|..GDHand|
|00001630| 6c 65 20 74 61 72 67 65 | 74 44 65 76 69 63 65 2c |le targe|tDevice,|
|00001640| 20 6c 6f 6e 67 20 75 73 | 65 72 44 61 74 61 29 0d | long us|erData).|
|00001650| 7b 0d 09 54 46 69 6c 6c | 43 6f 6c 6f 72 50 6f 6c |{..TFill|ColorPol|
|00001660| 79 55 73 65 72 44 61 74 | 61 20 2a 75 64 3b 0d 09 |yUserDat|a *ud;..|
|00001670| 52 47 42 43 6f 6c 6f 72 | 20 66 67 43 6f 6c 6f 72 |RGBColor| fgColor|
|00001680| 3b 0d 09 0d 09 75 64 20 | 3d 20 28 54 46 69 6c 6c |;....ud |= (TFill|
|00001690| 43 6f 6c 6f 72 50 6f 6c | 79 55 73 65 72 44 61 74 |ColorPol|yUserDat|
|000016a0| 61 2a 29 75 73 65 72 44 | 61 74 61 3b 0d 09 69 66 |a*)userD|ata;..if|
|000016b0| 20 28 74 61 72 67 65 74 | 44 65 76 69 63 65 20 21 | (target|Device !|
|000016c0| 3d 20 6e 69 6c 20 26 26 | 20 64 65 70 74 68 20 3e |= nil &&| depth >|
|000016d0| 20 32 29 20 7b 0d 09 09 | 47 65 74 46 6f 72 65 43 | 2) {...|GetForeC|
|000016e0| 6f 6c 6f 72 28 26 66 67 | 43 6f 6c 6f 72 29 3b 0d |olor(&fg|Color);.|
|000016f0| 09 09 52 47 42 46 6f 72 | 65 43 6f 6c 6f 72 28 75 |..RGBFor|eColor(u|
|00001700| 64 2d 3e 63 6f 6c 6f 72 | 29 3b 0d 09 09 46 69 6c |d->color|);...Fil|
|00001710| 6c 50 6f 6c 79 28 75 64 | 2d 3e 70 6f 6c 79 2c 20 |lPoly(ud|->poly, |
|00001720| 75 64 2d 3e 70 61 74 29 | 3b 0d 09 09 52 47 42 46 |ud->pat)|;...RGBF|
|00001730| 6f 72 65 43 6f 6c 6f 72 | 28 26 66 67 43 6f 6c 6f |oreColor|(&fgColo|
|00001740| 72 29 3b 0d 09 7d 0d 7d | 0d 0d 76 6f 69 64 20 46 |r);..}.}|..void F|
|00001750| 69 6c 6c 43 6f 6c 6f 72 | 50 6f 6c 79 20 28 50 6f |illColor|Poly (Po|
|00001760| 6c 79 48 61 6e 64 6c 65 | 20 70 6f 6c 79 2c 20 52 |lyHandle| poly, R|
|00001770| 47 42 43 6f 6c 6f 72 20 | 2a 63 6f 6c 6f 72 2c 20 |GBColor |*color, |
|00001780| 43 6f 6e 73 74 50 61 74 | 74 65 72 6e 50 61 72 61 |ConstPat|ternPara|
|00001790| 6d 20 70 61 74 29 0d 7b | 0d 09 54 46 69 6c 6c 43 |m pat).{|..TFillC|
|000017a0| 6f 6c 6f 72 50 6f 6c 79 | 55 73 65 72 44 61 74 61 |olorPoly|UserData|
|000017b0| 20 75 64 3b 0d 09 73 74 | 61 74 69 63 20 44 65 76 | ud;..st|atic Dev|
|000017c0| 69 63 65 4c 6f 6f 70 44 | 72 61 77 69 6e 67 55 50 |iceLoopD|rawingUP|
|000017d0| 50 20 75 70 70 20 3d 20 | 6e 69 6c 3b 0d 0d 09 75 |P upp = |nil;...u|
|000017e0| 64 2e 70 6f 6c 79 20 3d | 20 70 6f 6c 79 3b 0d 09 |d.poly =| poly;..|
|000017f0| 75 64 2e 63 6f 6c 6f 72 | 20 3d 20 63 6f 6c 6f 72 |ud.color| = color|
|00001800| 3b 0d 09 75 64 2e 70 61 | 74 20 3d 20 70 61 74 3b |;..ud.pa|t = pat;|
|00001810| 0d 09 69 66 20 28 75 70 | 70 20 3d 3d 20 6e 69 6c |..if (up|p == nil|
|00001820| 29 20 75 70 70 20 3d 20 | 4e 65 77 44 65 76 69 63 |) upp = |NewDevic|
|00001830| 65 4c 6f 6f 70 44 72 61 | 77 69 6e 67 50 72 6f 63 |eLoopDra|wingProc|
|00001840| 28 46 69 6c 6c 43 6f 6c | 6f 72 50 6f 6c 79 4f 6e |(FillCol|orPolyOn|
|00001850| 65 44 65 70 74 68 29 3b | 0d 09 44 65 76 69 63 65 |eDepth);|..Device|
|00001860| 4c 6f 6f 70 28 71 64 2e | 74 68 65 50 6f 72 74 2d |Loop(qd.|thePort-|
|00001870| 3e 76 69 73 52 67 6e 2c | 20 75 70 70 2c 20 28 6c |>visRgn,| upp, (l|
|00001880| 6f 6e 67 29 26 75 64 2c | 20 30 29 3b 0d 7d 0d 0d |ong)&ud,| 0);.}..|
|00001890| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|000018a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018e0| 0d 09 46 72 61 6d 65 47 | 72 61 79 50 6f 6c 79 20 |..FrameG|rayPoly |
|000018f0| 0d 09 0d 09 46 72 61 6d | 65 20 61 20 70 6f 6c 79 |....Fram|e a poly|
|00001900| 67 6f 6e 20 69 6e 20 67 | 72 61 79 2e 0d 09 09 09 |gon in g|ray.....|
|00001910| 0d 09 45 6e 74 72 79 3a | 09 70 6f 6c 79 20 3d 20 |..Entry:|.poly = |
|00001920| 68 61 6e 64 6c 65 20 74 | 6f 20 70 6f 6c 79 67 6f |handle t|o polygo|
|00001930| 6e 2e 0d 09 0d 09 4f 6e | 20 42 26 57 20 6d 6f 6e |n.....On| B&W mon|
|00001940| 69 74 6f 72 73 2c 20 66 | 72 61 6d 69 6e 67 20 69 |itors, f|raming i|
|00001950| 6e 20 67 72 61 79 20 64 | 6f 65 73 6e 27 74 20 77 |n gray d|oesn't w|
|00001960| 6f 72 6b 20 76 65 72 79 | 20 77 65 6c 6c 2c 20 73 |ork very| well, s|
|00001970| 6f 20 69 6e 20 74 68 61 | 74 20 63 61 73 65 0d 09 |o in tha|t case..|
|00001980| 77 65 20 66 72 61 6d 65 | 20 69 6e 20 62 6c 61 63 |we frame| in blac|
|00001990| 6b 2e 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |k..-----|--------|
|000019a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a |--------|-------*|
|000019e0| 2f 0d 0d 73 74 61 74 69 | 63 20 70 61 73 63 61 6c |/..stati|c pascal|
|000019f0| 20 76 6f 69 64 20 46 72 | 61 6d 65 47 72 61 79 50 | void Fr|ameGrayP|
|00001a00| 6f 6c 79 4f 6e 65 44 65 | 70 74 68 20 28 73 68 6f |olyOneDe|pth (sho|
|00001a10| 72 74 20 64 65 70 74 68 | 2c 20 73 68 6f 72 74 20 |rt depth|, short |
|00001a20| 64 65 76 69 63 65 46 6c | 61 67 73 2c 0d 09 47 44 |deviceFl|ags,..GD|
|00001a30| 48 61 6e 64 6c 65 20 74 | 61 72 67 65 74 44 65 76 |Handle t|argetDev|
|00001a40| 69 63 65 2c 20 6c 6f 6e | 67 20 75 73 65 72 44 61 |ice, lon|g userDa|
|00001a50| 74 61 29 0d 7b 0d 09 52 | 47 42 43 6f 6c 6f 72 20 |ta).{..R|GBColor |
|00001a60| 66 67 2c 20 62 67 2c 20 | 67 3b 0d 09 0d 09 69 66 |fg, bg, |g;....if|
|00001a70| 20 28 74 61 72 67 65 74 | 44 65 76 69 63 65 20 21 | (target|Device !|
|00001a80| 3d 20 6e 69 6c 29 20 7b | 0d 09 09 47 65 74 46 6f |= nil) {|...GetFo|
|00001a90| 72 65 43 6f 6c 6f 72 28 | 26 66 67 29 3b 0d 09 09 |reColor(|&fg);...|
|00001aa0| 47 65 74 42 61 63 6b 43 | 6f 6c 6f 72 28 26 62 67 |GetBackC|olor(&bg|
|00001ab0| 29 3b 0d 09 09 67 20 3d | 20 66 67 3b 0d 09 09 69 |);...g =| fg;...i|
|00001ac0| 66 20 28 47 65 74 47 72 | 61 79 28 74 61 72 67 65 |f (GetGr|ay(targe|
|00001ad0| 74 44 65 76 69 63 65 2c | 20 26 62 67 2c 20 26 67 |tDevice,| &bg, &g|
|00001ae0| 29 29 20 7b 0d 09 09 09 | 52 47 42 46 6f 72 65 43 |)) {....|RGBForeC|
|00001af0| 6f 6c 6f 72 28 26 67 29 | 3b 0d 09 09 09 46 72 61 |olor(&g)|;....Fra|
|00001b00| 6d 65 50 6f 6c 79 28 28 | 50 6f 6c 79 48 61 6e 64 |mePoly((|PolyHand|
|00001b10| 6c 65 29 75 73 65 72 44 | 61 74 61 29 3b 0d 09 09 |le)userD|ata);...|
|00001b20| 09 52 47 42 46 6f 72 65 | 43 6f 6c 6f 72 28 26 66 |.RGBFore|Color(&f|
|00001b30| 67 29 3b 0d 09 09 09 72 | 65 74 75 72 6e 3b 0d 09 |g);....r|eturn;..|
|00001b40| 09 7d 0d 09 7d 0d 09 46 | 72 61 6d 65 50 6f 6c 79 |.}..}..F|ramePoly|
|00001b50| 28 28 50 6f 6c 79 48 61 | 6e 64 6c 65 29 75 73 65 |((PolyHa|ndle)use|
|00001b60| 72 44 61 74 61 29 3b 0d | 7d 0d 0d 76 6f 69 64 20 |rData);.|}..void |
|00001b70| 46 72 61 6d 65 47 72 61 | 79 50 6f 6c 79 20 28 50 |FrameGra|yPoly (P|
|00001b80| 6f 6c 79 48 61 6e 64 6c | 65 20 70 6f 6c 79 29 0d |olyHandl|e poly).|
|00001b90| 7b 0d 09 73 74 61 74 69 | 63 20 44 65 76 69 63 65 |{..stati|c Device|
|00001ba0| 4c 6f 6f 70 44 72 61 77 | 69 6e 67 55 50 50 20 75 |LoopDraw|ingUPP u|
|00001bb0| 70 70 20 3d 20 6e 69 6c | 3b 0d 0d 09 69 66 20 28 |pp = nil|;...if (|
|00001bc0| 75 70 70 20 3d 3d 20 6e | 69 6c 29 20 75 70 70 20 |upp == n|il) upp |
|00001bd0| 3d 20 4e 65 77 44 65 76 | 69 63 65 4c 6f 6f 70 44 |= NewDev|iceLoopD|
|00001be0| 72 61 77 69 6e 67 50 72 | 6f 63 28 46 72 61 6d 65 |rawingPr|oc(Frame|
|00001bf0| 47 72 61 79 50 6f 6c 79 | 4f 6e 65 44 65 70 74 68 |GrayPoly|OneDepth|
|00001c00| 29 3b 0d 09 44 65 76 69 | 63 65 4c 6f 6f 70 28 71 |);..Devi|ceLoop(q|
|00001c10| 64 2e 74 68 65 50 6f 72 | 74 2d 3e 76 69 73 52 67 |d.thePor|t->visRg|
|00001c20| 6e 2c 20 75 70 70 2c 20 | 28 6c 6f 6e 67 29 70 6f |n, upp, |(long)po|
|00001c30| 6c 79 2c 20 30 29 3b 0d | 7d 0d 0d 0d 0d 2f 2a 2d |ly, 0);.|}..../*-|
|00001c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 09 46 69 6c |--------|---..Fil|
|00001c90| 6c 43 6f 6c 6f 72 52 65 | 63 74 20 0d 09 0d 09 46 |lColorRe|ct ....F|
|00001ca0| 69 6c 6c 20 61 20 72 65 | 63 74 61 6e 67 6c 65 20 |ill a re|ctangle |
|00001cb0| 69 6e 20 63 6f 6c 6f 72 | 2e 0d 09 09 09 0d 09 45 |in color|.......E|
|00001cc0| 6e 74 72 79 3a 09 72 20 | 3d 20 70 6f 69 6e 74 65 |ntry:.r |= pointe|
|00001cd0| 72 20 74 6f 20 72 65 63 | 74 61 6e 67 6c 65 2e 0d |r to rec|tangle..|
|00001ce0| 09 09 09 63 6f 6c 6f 72 | 20 3d 20 70 6f 69 6e 74 |...color| = point|
|00001cf0| 65 72 20 74 6f 20 63 6f | 6c 6f 72 20 74 6f 20 75 |er to co|lor to u|
|00001d00| 73 65 20 69 66 20 64 65 | 70 74 68 20 3e 20 32 2e |se if de|pth > 2.|
|00001d10| 0d 09 09 09 70 61 74 20 | 3d 20 42 26 57 20 70 61 |....pat |= B&W pa|
|00001d20| 74 74 65 72 6e 20 74 6f | 20 75 73 65 20 69 66 20 |ttern to| use if |
|00001d30| 64 65 70 74 68 20 3c 3d | 20 32 2e 0d 2d 2d 2d 2d |depth <=| 2..----|
|00001d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 0d 74 79 70 65 |--------|*/..type|
|00001d90| 64 65 66 20 73 74 72 75 | 63 74 20 54 46 69 6c 6c |def stru|ct TFill|
|00001da0| 43 6f 6c 6f 72 52 65 63 | 74 55 73 65 72 44 61 74 |ColorRec|tUserDat|
|00001db0| 61 20 7b 0d 09 52 65 63 | 74 20 2a 72 3b 0d 09 52 |a {..Rec|t *r;..R|
|00001dc0| 47 42 43 6f 6c 6f 72 20 | 2a 63 6f 6c 6f 72 3b 0d |GBColor |*color;.|
|00001dd0| 09 43 6f 6e 73 74 50 61 | 74 74 65 72 6e 50 61 72 |.ConstPa|tternPar|
|00001de0| 61 6d 20 70 61 74 3b 0d | 7d 20 54 46 69 6c 6c 43 |am pat;.|} TFillC|
|00001df0| 6f 6c 6f 72 52 65 63 74 | 55 73 65 72 44 61 74 61 |olorRect|UserData|
|00001e00| 3b 0d 0d 73 74 61 74 69 | 63 20 70 61 73 63 61 6c |;..stati|c pascal|
|00001e10| 20 76 6f 69 64 20 46 69 | 6c 6c 43 6f 6c 6f 72 52 | void Fi|llColorR|
|00001e20| 65 63 74 4f 6e 65 44 65 | 70 74 68 20 28 73 68 6f |ectOneDe|pth (sho|
|00001e30| 72 74 20 64 65 70 74 68 | 2c 20 73 68 6f 72 74 20 |rt depth|, short |
|00001e40| 64 65 76 69 63 65 46 6c | 61 67 73 2c 0d 09 47 44 |deviceFl|ags,..GD|
|00001e50| 48 61 6e 64 6c 65 20 74 | 61 72 67 65 74 44 65 76 |Handle t|argetDev|
|00001e60| 69 63 65 2c 20 6c 6f 6e | 67 20 75 73 65 72 44 61 |ice, lon|g userDa|
|00001e70| 74 61 29 0d 7b 0d 09 54 | 46 69 6c 6c 43 6f 6c 6f |ta).{..T|FillColo|
|00001e80| 72 52 65 63 74 55 73 65 | 72 44 61 74 61 20 2a 75 |rRectUse|rData *u|
|00001e90| 64 3b 0d 09 52 47 42 43 | 6f 6c 6f 72 20 66 67 43 |d;..RGBC|olor fgC|
|00001ea0| 6f 6c 6f 72 3b 0d 09 0d | 09 75 64 20 3d 20 28 54 |olor;...|.ud = (T|
|00001eb0| 46 69 6c 6c 43 6f 6c 6f | 72 52 65 63 74 55 73 65 |FillColo|rRectUse|
|00001ec0| 72 44 61 74 61 2a 29 75 | 73 65 72 44 61 74 61 3b |rData*)u|serData;|
|00001ed0| 0d 09 69 66 20 28 74 61 | 72 67 65 74 44 65 76 69 |..if (ta|rgetDevi|
|00001ee0| 63 65 20 21 3d 20 6e 69 | 6c 20 26 26 20 64 65 70 |ce != ni|l && dep|
|00001ef0| 74 68 20 3e 20 32 29 20 | 7b 0d 09 09 47 65 74 46 |th > 2) |{...GetF|
|00001f00| 6f 72 65 43 6f 6c 6f 72 | 28 26 66 67 43 6f 6c 6f |oreColor|(&fgColo|
|00001f10| 72 29 3b 0d 09 09 52 47 | 42 46 6f 72 65 43 6f 6c |r);...RG|BForeCol|
|00001f20| 6f 72 28 75 64 2d 3e 63 | 6f 6c 6f 72 29 3b 0d 09 |or(ud->c|olor);..|
|00001f30| 09 50 61 69 6e 74 52 65 | 63 74 28 75 64 2d 3e 72 |.PaintRe|ct(ud->r|
|00001f40| 29 3b 0d 09 09 52 47 42 | 46 6f 72 65 43 6f 6c 6f |);...RGB|ForeColo|
|00001f50| 72 28 26 66 67 43 6f 6c | 6f 72 29 3b 0d 09 7d 20 |r(&fgCol|or);..} |
|00001f60| 65 6c 73 65 20 7b 0d 09 | 09 46 69 6c 6c 52 65 63 |else {..|.FillRec|
|00001f70| 74 28 75 64 2d 3e 72 2c | 20 75 64 2d 3e 70 61 74 |t(ud->r,| ud->pat|
|00001f80| 29 3b 0d 09 7d 0d 7d 0d | 0d 76 6f 69 64 20 46 69 |);..}.}.|.void Fi|
|00001f90| 6c 6c 43 6f 6c 6f 72 52 | 65 63 74 20 28 52 65 63 |llColorR|ect (Rec|
|00001fa0| 74 20 2a 72 2c 20 52 47 | 42 43 6f 6c 6f 72 20 2a |t *r, RG|BColor *|
|00001fb0| 63 6f 6c 6f 72 2c 20 43 | 6f 6e 73 74 50 61 74 74 |color, C|onstPatt|
|00001fc0| 65 72 6e 50 61 72 61 6d | 20 70 61 74 29 0d 7b 0d |ernParam| pat).{.|
|00001fd0| 09 54 46 69 6c 6c 43 6f | 6c 6f 72 52 65 63 74 55 |.TFillCo|lorRectU|
|00001fe0| 73 65 72 44 61 74 61 20 | 75 64 3b 0d 09 73 74 61 |serData |ud;..sta|
|00001ff0| 74 69 63 20 44 65 76 69 | 63 65 4c 6f 6f 70 44 72 |tic Devi|ceLoopDr|
|00002000| 61 77 69 6e 67 55 50 50 | 20 75 70 70 20 3d 20 6e |awingUPP| upp = n|
|00002010| 69 6c 3b 0d 0d 09 69 66 | 20 28 75 70 70 20 3d 3d |il;...if| (upp ==|
|00002020| 20 6e 69 6c 29 0d 09 09 | 75 70 70 20 3d 20 4e 65 | nil)...|upp = Ne|
|00002030| 77 44 65 76 69 63 65 4c | 6f 6f 70 44 72 61 77 69 |wDeviceL|oopDrawi|
|00002040| 6e 67 50 72 6f 63 28 46 | 69 6c 6c 43 6f 6c 6f 72 |ngProc(F|illColor|
|00002050| 52 65 63 74 4f 6e 65 44 | 65 70 74 68 29 3b 0d 09 |RectOneD|epth);..|
|00002060| 75 64 2e 72 20 3d 20 72 | 3b 0d 09 75 64 2e 63 6f |ud.r = r|;..ud.co|
|00002070| 6c 6f 72 20 3d 20 63 6f | 6c 6f 72 3b 0d 09 75 64 |lor = co|lor;..ud|
|00002080| 2e 70 61 74 20 3d 20 70 | 61 74 3b 0d 09 44 65 76 |.pat = p|at;..Dev|
|00002090| 69 63 65 4c 6f 6f 70 28 | 71 64 2e 74 68 65 50 6f |iceLoop(|qd.thePo|
|000020a0| 72 74 2d 3e 76 69 73 52 | 67 6e 2c 20 75 70 70 2c |rt->visR|gn, upp,|
|000020b0| 20 28 6c 6f 6e 67 29 26 | 75 64 2c 20 30 29 3b 0d | (long)&|ud, 0);.|
|000020c0| 7d 0d 0d 0d 0d 2f 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}..../*-|--------|
|000020d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002110| 2d 2d 2d 0d 09 46 69 6c | 6c 47 72 61 79 52 65 63 |---..Fil|lGrayRec|
|00002120| 74 20 0d 09 0d 09 46 69 | 6c 6c 20 61 20 72 65 63 |t ....Fi|ll a rec|
|00002130| 74 61 6e 67 6c 65 20 77 | 69 74 68 20 67 72 61 79 |tangle w|ith gray|
|00002140| 2e 0d 09 09 09 0d 09 45 | 6e 74 72 79 3a 09 72 20 |.......E|ntry:.r |
|00002150| 3d 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 72 65 63 |= pointe|r to rec|
|00002160| 74 61 6e 67 6c 65 2e 0d | 2d 2d 2d 2d 2d 2d 2d 2d |tangle..|--------|
|00002170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021b0| 2d 2d 2d 2d 2a 2f 0d 0d | 73 74 61 74 69 63 20 70 |----*/..|static p|
|000021c0| 61 73 63 61 6c 20 76 6f | 69 64 20 46 69 6c 6c 47 |ascal vo|id FillG|
|000021d0| 72 61 79 52 65 63 74 4f | 6e 65 44 65 70 74 68 20 |rayRectO|neDepth |
|000021e0| 28 73 68 6f 72 74 20 64 | 65 70 74 68 2c 20 73 68 |(short d|epth, sh|
|000021f0| 6f 72 74 20 64 65 76 69 | 63 65 46 6c 61 67 73 2c |ort devi|ceFlags,|
|00002200| 0d 09 47 44 48 61 6e 64 | 6c 65 20 74 61 72 67 65 |..GDHand|le targe|
|00002210| 74 44 65 76 69 63 65 2c | 20 6c 6f 6e 67 20 75 73 |tDevice,| long us|
|00002220| 65 72 44 61 74 61 29 0d | 7b 0d 09 52 65 63 74 20 |erData).|{..Rect |
|00002230| 2a 72 3b 0d 09 52 47 42 | 43 6f 6c 6f 72 20 66 67 |*r;..RGB|Color fg|
|00002240| 2c 20 62 67 2c 20 67 3b | 0d 09 0d 09 72 20 3d 20 |, bg, g;|....r = |
|00002250| 28 52 65 63 74 2a 29 75 | 73 65 72 44 61 74 61 3b |(Rect*)u|serData;|
|00002260| 0d 09 69 66 20 28 74 61 | 72 67 65 74 44 65 76 69 |..if (ta|rgetDevi|
|00002270| 63 65 20 21 3d 20 6e 69 | 6c 29 20 7b 0d 09 09 47 |ce != ni|l) {...G|
|00002280| 65 74 46 6f 72 65 43 6f | 6c 6f 72 28 26 66 67 29 |etForeCo|lor(&fg)|
|00002290| 3b 0d 09 09 47 65 74 42 | 61 63 6b 43 6f 6c 6f 72 |;...GetB|ackColor|
|000022a0| 28 26 62 67 29 3b 0d 09 | 09 67 20 3d 20 66 67 3b |(&bg);..|.g = fg;|
|000022b0| 0d 09 09 69 66 20 28 47 | 65 74 47 72 61 79 28 74 |...if (G|etGray(t|
|000022c0| 61 72 67 65 74 44 65 76 | 69 63 65 2c 20 26 62 67 |argetDev|ice, &bg|
|000022d0| 2c 20 26 67 29 29 20 7b | 0d 09 09 09 52 47 42 46 |, &g)) {|....RGBF|
|000022e0| 6f 72 65 43 6f 6c 6f 72 | 28 26 67 29 3b 0d 09 09 |oreColor|(&g);...|
|000022f0| 09 50 61 69 6e 74 52 65 | 63 74 28 72 29 3b 0d 09 |.PaintRe|ct(r);..|
|00002300| 09 09 52 47 42 46 6f 72 | 65 43 6f 6c 6f 72 28 26 |..RGBFor|eColor(&|
|00002310| 66 67 29 3b 0d 09 09 09 | 72 65 74 75 72 6e 3b 0d |fg);....|return;.|
|00002320| 09 09 7d 0d 09 7d 0d 09 | 46 69 6c 6c 52 65 63 74 |..}..}..|FillRect|
|00002330| 28 72 2c 20 26 71 64 2e | 67 72 61 79 29 3b 0d 7d |(r, &qd.|gray);.}|
|00002340| 0d 0d 76 6f 69 64 20 46 | 69 6c 6c 47 72 61 79 52 |..void F|illGrayR|
|00002350| 65 63 74 20 28 52 65 63 | 74 20 2a 72 29 0d 7b 0d |ect (Rec|t *r).{.|
|00002360| 09 73 74 61 74 69 63 20 | 44 65 76 69 63 65 4c 6f |.static |DeviceLo|
|00002370| 6f 70 44 72 61 77 69 6e | 67 55 50 50 20 75 70 70 |opDrawin|gUPP upp|
|00002380| 20 3d 20 6e 69 6c 3b 0d | 0d 09 69 66 20 28 75 70 | = nil;.|..if (up|
|00002390| 70 20 3d 3d 20 6e 69 6c | 29 0d 09 09 75 70 70 20 |p == nil|)...upp |
|000023a0| 3d 20 4e 65 77 44 65 76 | 69 63 65 4c 6f 6f 70 44 |= NewDev|iceLoopD|
|000023b0| 72 61 77 69 6e 67 50 72 | 6f 63 28 46 69 6c 6c 47 |rawingPr|oc(FillG|
|000023c0| 72 61 79 52 65 63 74 4f | 6e 65 44 65 70 74 68 29 |rayRectO|neDepth)|
|000023d0| 3b 0d 09 44 65 76 69 63 | 65 4c 6f 6f 70 28 71 64 |;..Devic|eLoop(qd|
|000023e0| 2e 74 68 65 50 6f 72 74 | 2d 3e 76 69 73 52 67 6e |.thePort|->visRgn|
|000023f0| 2c 20 75 70 70 2c 20 28 | 6c 6f 6e 67 29 72 2c 20 |, upp, (|long)r, |
|00002400| 30 29 3b 0d 7d 0d 0d 0d | 0d 2f 2a 2d 2d 2d 2d 2d |0);.}...|./*-----|
|00002410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002450| 2d 2d 2d 2d 2d 2d 2d 0d | 09 43 6f 6d 70 6c 65 6d |-------.|.Complem|
|00002460| 65 6e 74 52 67 6e 20 0d | 09 0d 09 43 6f 6d 70 6c |entRgn .|...Compl|
|00002470| 65 6d 65 6e 74 20 61 20 | 51 75 69 63 6b 44 72 61 |ement a |QuickDra|
|00002480| 77 20 72 65 67 69 6f 6e | 2e 0d 09 09 09 0d 09 45 |w region|.......E|
|00002490| 6e 74 72 79 3a 09 72 67 | 6e 20 3d 20 68 61 6e 64 |ntry:.rg|n = hand|
|000024a0| 6c 65 20 74 6f 20 72 65 | 67 69 6f 6e 2e 0d 09 0d |le to re|gion....|
|000024b0| 09 45 78 69 74 3a 09 52 | 65 67 69 6f 6e 20 63 6f |.Exit:.R|egion co|
|000024c0| 6d 70 6c 65 6d 65 6e 74 | 65 64 2e 0d 2d 2d 2d 2d |mplement|ed..----|
|000024d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002510| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 0d 76 6f 69 64 |--------|*/..void|
|00002520| 20 43 6f 6d 70 6c 65 6d | 65 6e 74 52 67 6e 20 28 | Complem|entRgn (|
|00002530| 52 67 6e 48 61 6e 64 6c | 65 20 72 67 6e 29 0d 7b |RgnHandl|e rgn).{|
|00002540| 0d 09 73 74 61 74 69 63 | 20 52 67 6e 48 61 6e 64 |..static| RgnHand|
|00002550| 6c 65 20 62 69 67 52 67 | 6e 20 3d 20 6e 69 6c 3b |le bigRg|n = nil;|
|00002560| 0d 09 0d 09 69 66 20 28 | 62 69 67 52 67 6e 20 3d |....if (|bigRgn =|
|00002570| 3d 20 6e 69 6c 29 20 7b | 0d 09 09 62 69 67 52 67 |= nil) {|...bigRg|
|00002580| 6e 20 3d 20 4e 65 77 52 | 67 6e 28 29 3b 0d 09 09 |n = NewR|gn();...|
|00002590| 53 65 74 52 65 63 74 52 | 67 6e 28 62 69 67 52 67 |SetRectR|gn(bigRg|
|000025a0| 6e 2c 20 2d 30 78 37 66 | 66 66 2c 20 2d 30 78 37 |n, -0x7f|ff, -0x7|
|000025b0| 66 66 66 2c 20 30 78 37 | 66 66 66 2c 20 30 78 37 |fff, 0x7|fff, 0x7|
|000025c0| 66 66 66 29 3b 0d 09 7d | 0d 09 44 69 66 66 52 67 |fff);..}|..DiffRg|
|000025d0| 6e 28 62 69 67 52 67 6e | 2c 20 72 67 6e 2c 20 72 |n(bigRgn|, rgn, r|
|000025e0| 67 6e 29 3b 0d 7d 0d 0d | 0d 0d 2f 2a 2d 2d 2d 2d |gn);.}..|../*----|
|000025f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002630| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 09 4c 6f 63 61 6c 54 |--------|..LocalT|
|00002640| 6f 47 6c 6f 62 61 6c 52 | 65 63 74 20 0d 09 0d 09 |oGlobalR|ect ....|
|00002650| 43 6f 6e 76 65 72 74 20 | 61 20 72 65 63 74 61 6e |Convert |a rectan|
|00002660| 67 6c 65 20 66 72 6f 6d | 20 6c 6f 63 61 6c 20 74 |gle from| local t|
|00002670| 6f 20 67 6c 6f 62 61 6c | 20 63 6f 6f 72 64 69 6e |o global| coordin|
|00002680| 61 74 65 73 2e 0d 09 09 | 09 0d 09 45 6e 74 72 79 |ates....|...Entry|
|00002690| 3a 09 72 20 3d 20 70 6f | 69 6e 74 65 72 20 74 6f |:.r = po|inter to|
|000026a0| 20 72 65 63 74 61 6e 67 | 6c 65 2e 0d 2d 2d 2d 2d | rectang|le..----|
|000026b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000026c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000026d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000026e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000026f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 0d 76 6f 69 64 |--------|*/..void|
|00002700| 20 4c 6f 63 61 6c 54 6f | 47 6c 6f 62 61 6c 52 65 | LocalTo|GlobalRe|
|00002710| 63 74 20 28 52 65 63 74 | 20 2a 72 29 0d 7b 0d 09 |ct (Rect| *r).{..|
|00002720| 4c 6f 63 61 6c 54 6f 47 | 6c 6f 62 61 6c 28 28 50 |LocalToG|lobal((P|
|00002730| 6f 69 6e 74 2a 29 26 72 | 2d 3e 74 6f 70 29 3b 0d |oint*)&r|->top);.|
|00002740| 09 4c 6f 63 61 6c 54 6f | 47 6c 6f 62 61 6c 28 28 |.LocalTo|Global((|
|00002750| 50 6f 69 6e 74 2a 29 26 | 72 2d 3e 62 6f 74 74 6f |Point*)&|r->botto|
|00002760| 6d 29 3b 0d 7d 0d 0d 0d | 0d 2f 2a 2d 2d 2d 2d 2d |m);.}...|./*-----|
|00002770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000027a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000027b0| 2d 2d 2d 2d 2d 2d 2d 0d | 09 47 6c 6f 62 61 6c 54 |-------.|.GlobalT|
|000027c0| 6f 4c 6f 63 61 6c 52 65 | 63 74 20 0d 09 0d 09 43 |oLocalRe|ct ....C|
|000027d0| 6f 6e 76 65 72 74 20 61 | 20 72 65 63 74 61 6e 67 |onvert a| rectang|
|000027e0| 6c 65 20 66 72 6f 6d 20 | 67 6c 6f 62 61 6c 20 74 |le from |global t|
|000027f0| 6f 20 6c 6f 63 61 6c 20 | 63 6f 6f 72 64 69 6e 61 |o local |coordina|
|00002800| 74 65 73 2e 0d 09 09 09 | 0d 09 45 6e 74 72 79 3a |tes.....|..Entry:|
|00002810| 09 72 20 3d 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |.r = poi|nter to |
|00002820| 72 65 63 74 61 6e 67 6c | 65 2e 0d 2d 2d 2d 2d 2d |rectangl|e..-----|
|00002830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002870| 2d 2d 2d 2d 2d 2d 2d 2a | 2f 0d 0d 76 6f 69 64 20 |-------*|/..void |
|00002880| 47 6c 6f 62 61 6c 54 6f | 4c 6f 63 61 6c 52 65 63 |GlobalTo|LocalRec|
|00002890| 74 20 28 52 65 63 74 20 | 2a 72 29 0d 7b 0d 09 47 |t (Rect |*r).{..G|
|000028a0| 6c 6f 62 61 6c 54 6f 4c | 6f 63 61 6c 28 28 50 6f |lobalToL|ocal((Po|
|000028b0| 69 6e 74 2a 29 26 72 2d | 3e 74 6f 70 29 3b 0d 09 |int*)&r-|>top);..|
|000028c0| 47 6c 6f 62 61 6c 54 6f | 4c 6f 63 61 6c 28 28 50 |GlobalTo|Local((P|
|000028d0| 6f 69 6e 74 2a 29 26 72 | 2d 3e 62 6f 74 74 6f 6d |oint*)&r|->bottom|
|000028e0| 29 3b 0d 7d 0d 0d 0d 0d | 2f 2a 2d 2d 2d 2d 2d 2d |);.}....|/*------|
|000028f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002930| 2d 2d 2d 2d 2d 2d 0d 09 | 4c 6f 63 61 6c 54 6f 47 |------..|LocalToG|
|00002940| 6c 6f 62 61 6c 52 67 6e | 20 0d 09 0d 09 43 6f 6e |lobalRgn| ....Con|
|00002950| 76 65 72 74 20 61 20 72 | 65 67 69 6f 6e 20 66 72 |vert a r|egion fr|
|00002960| 6f 6d 20 6c 6f 63 61 6c | 20 74 6f 20 67 6c 6f 62 |om local| to glob|
|00002970| 61 6c 20 63 6f 6f 72 64 | 69 6e 61 74 65 73 2e 0d |al coord|inates..|
|00002980| 09 09 09 0d 09 45 6e 74 | 72 79 3a 09 72 67 6e 20 |.....Ent|ry:.rgn |
|00002990| 3d 20 68 61 6e 64 6c 65 | 20 74 6f 20 72 65 67 69 |= handle| to regi|
|000029a0| 6f 6e 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |on..----|--------|
|000029b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029f0| 2a 2f 0d 0d 76 6f 69 64 | 20 4c 6f 63 61 6c 54 6f |*/..void| LocalTo|
|00002a00| 47 6c 6f 62 61 6c 52 67 | 6e 20 28 52 67 6e 48 61 |GlobalRg|n (RgnHa|
|00002a10| 6e 64 6c 65 20 72 67 6e | 29 0d 7b 0d 09 50 6f 69 |ndle rgn|).{..Poi|
|00002a20| 6e 74 20 77 68 65 72 65 | 3b 0d 09 0d 09 53 65 74 |nt where|;....Set|
|00002a30| 50 74 28 26 77 68 65 72 | 65 2c 20 30 2c 20 30 29 |Pt(&wher|e, 0, 0)|
|00002a40| 3b 0d 09 4c 6f 63 61 6c | 54 6f 47 6c 6f 62 61 6c |;..Local|ToGlobal|
|00002a50| 28 26 77 68 65 72 65 29 | 3b 0d 09 4f 66 66 73 65 |(&where)|;..Offse|
|00002a60| 74 52 67 6e 28 72 67 6e | 2c 20 77 68 65 72 65 2e |tRgn(rgn|, where.|
|00002a70| 68 2c 20 77 68 65 72 65 | 2e 76 29 3b 0d 7d 0d 0d |h, where|.v);.}..|
|00002a80| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|00002a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ad0| 0d 09 47 6c 6f 62 61 6c | 54 6f 4c 6f 63 61 6c 52 |..Global|ToLocalR|
|00002ae0| 67 6e 20 0d 09 0d 09 43 | 6f 6e 76 65 72 74 20 61 |gn ....C|onvert a|
|00002af0| 20 72 65 67 69 6f 6e 20 | 66 72 6f 6d 20 67 6c 6f | region |from glo|
|00002b00| 62 61 6c 20 74 6f 20 6c | 6f 63 61 6c 20 63 6f 6f |bal to l|ocal coo|
|00002b10| 72 64 69 6e 61 74 65 73 | 2e 0d 09 09 09 0d 09 45 |rdinates|.......E|
|00002b20| 6e 74 72 79 3a 09 72 67 | 6e 20 3d 20 68 61 6e 64 |ntry:.rg|n = hand|
|00002b30| 6c 65 20 74 6f 20 72 65 | 67 69 6f 6e 2e 0d 2d 2d |le to re|gion..--|
|00002b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0d 0d 76 6f |--------|--*/..vo|
|00002b90| 69 64 20 47 6c 6f 62 61 | 6c 54 6f 4c 6f 63 61 6c |id Globa|lToLocal|
|00002ba0| 52 67 6e 20 28 52 67 6e | 48 61 6e 64 6c 65 20 72 |Rgn (Rgn|Handle r|
|00002bb0| 67 6e 29 0d 7b 0d 09 50 | 6f 69 6e 74 20 77 68 65 |gn).{..P|oint whe|
|00002bc0| 72 65 3b 0d 09 0d 09 53 | 65 74 50 74 28 26 77 68 |re;....S|etPt(&wh|
|00002bd0| 65 72 65 2c 20 30 2c 20 | 30 29 3b 0d 09 4c 6f 63 |ere, 0, |0);..Loc|
|00002be0| 61 6c 54 6f 47 6c 6f 62 | 61 6c 28 26 77 68 65 72 |alToGlob|al(&wher|
|00002bf0| 65 29 3b 0d 09 4f 66 66 | 73 65 74 52 67 6e 28 72 |e);..Off|setRgn(r|
|00002c00| 67 6e 2c 20 2d 77 68 65 | 72 65 2e 68 2c 20 2d 77 |gn, -whe|re.h, -w|
|00002c10| 68 65 72 65 2e 76 29 3b | 0d 7d 0d 0d 0d 0d 2f 2a |here.v);|.}..../*|
|00002c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 09 47 65 |--------|----..Ge|
|00002c70| 74 46 6f 6e 74 4e 75 6d | 62 65 72 20 0d 09 0d 09 |tFontNum|ber ....|
|00002c80| 47 65 74 20 74 68 65 20 | 66 6f 6e 74 20 6e 75 6d |Get the |font num|
|00002c90| 62 65 72 20 63 6f 72 72 | 65 73 70 6f 6e 64 69 6e |ber corr|espondin|
|00002ca0| 67 20 74 6f 20 61 20 66 | 6f 6e 74 20 6e 61 6d 65 |g to a f|ont name|
|00002cb0| 20 28 61 64 61 70 74 65 | 64 20 66 72 6f 6d 20 54 | (adapte|d from T|
|00002cc0| 68 69 6e 6b 20 52 65 66 | 29 2e 0d 09 09 09 0d 09 |hink Ref|).......|
|00002cd0| 45 6e 74 72 79 3a 09 66 | 6f 6e 74 4e 61 6d 65 20 |Entry:.f|ontName |
|00002ce0| 3d 20 66 6f 6e 74 20 6e | 61 6d 65 2e 0d 09 0d 09 |= font n|ame.....|
|00002cf0| 45 78 69 74 3a 09 66 75 | 6e 63 74 69 6f 6e 20 72 |Exit:.fu|nction r|
|00002d00| 65 73 75 6c 74 20 3d 20 | 74 72 75 65 20 69 66 20 |esult = |true if |
|00002d10| 66 6f 6e 74 20 65 78 69 | 73 74 73 2e 0d 09 09 09 |font exi|sts.....|
|00002d20| 2a 66 6f 6e 74 4e 75 6d | 20 3d 20 66 6f 6e 74 20 |*fontNum| = font |
|00002d30| 6e 75 6d 62 65 72 2e 0d | 09 09 09 0d 09 49 66 20 |number..|.....If |
|00002d40| 74 68 65 20 66 6f 6e 74 | 20 64 6f 65 73 6e 27 74 |the font| doesn't|
|00002d50| 20 65 78 69 73 74 2c 20 | 74 68 65 20 66 6f 6e 74 | exist, |the font|
|00002d60| 20 6e 75 6d 62 65 72 20 | 69 73 20 73 65 74 20 74 | number |is set t|
|00002d70| 6f 20 4d 6f 6e 61 63 6f | 2c 20 6f 72 20 74 6f 20 |o Monaco|, or to |
|00002d80| 0d 09 61 70 70 6c 46 6f | 6e 74 20 69 66 20 4d 6f |..applFo|nt if Mo|
|00002d90| 6e 61 63 6f 20 61 6c 73 | 6f 20 64 6f 65 73 6e 27 |naco als|o doesn'|
|00002da0| 74 20 65 78 69 73 74 2e | 0d 2d 2d 2d 2d 2d 2d 2d |t exist.|.-------|
|00002db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002df0| 2d 2d 2d 2d 2d 2a 2f 0d | 0d 42 6f 6f 6c 65 61 6e |-----*/.|.Boolean|
|00002e00| 20 47 65 74 46 6f 6e 74 | 4e 75 6d 62 65 72 20 28 | GetFont|Number (|
|00002e10| 53 74 72 32 35 35 20 66 | 6f 6e 74 4e 61 6d 65 2c |Str255 f|ontName,|
|00002e20| 20 73 68 6f 72 74 20 2a | 66 6f 6e 74 4e 75 6d 29 | short *|fontNum)|
|00002e30| 0d 7b 0d 09 53 74 72 32 | 35 35 20 73 79 73 74 65 |.{..Str2|55 syste|
|00002e40| 6d 46 6f 6e 74 4e 61 6d | 65 3b 0d 0d 09 47 65 74 |mFontNam|e;...Get|
|00002e50| 46 4e 75 6d 28 66 6f 6e | 74 4e 61 6d 65 2c 20 66 |FNum(fon|tName, f|
|00002e60| 6f 6e 74 4e 75 6d 29 3b | 0d 09 69 66 20 28 2a 66 |ontNum);|..if (*f|
|00002e70| 6f 6e 74 4e 75 6d 20 21 | 3d 20 30 29 20 72 65 74 |ontNum !|= 0) ret|
|00002e80| 75 72 6e 20 74 72 75 65 | 3b 0d 09 47 65 74 46 6f |urn true|;..GetFo|
|00002e90| 6e 74 4e 61 6d 65 28 30 | 2c 20 73 79 73 74 65 6d |ntName(0|, system|
|00002ea0| 46 6f 6e 74 4e 61 6d 65 | 29 3b 0d 09 69 66 20 28 |FontName|);..if (|
|00002eb0| 45 71 75 61 6c 53 74 72 | 69 6e 67 28 66 6f 6e 74 |EqualStr|ing(font|
|00002ec0| 4e 61 6d 65 2c 20 73 79 | 73 74 65 6d 46 6f 6e 74 |Name, sy|stemFont|
|00002ed0| 4e 61 6d 65 2c 20 66 61 | 6c 73 65 2c 20 66 61 6c |Name, fa|lse, fal|
|00002ee0| 73 65 29 29 20 72 65 74 | 75 72 6e 20 74 72 75 65 |se)) ret|urn true|
|00002ef0| 3b 0d 09 47 65 74 46 4e | 75 6d 28 22 5c 70 4d 6f |;..GetFN|um("\pMo|
|00002f00| 6e 61 63 6f 22 2c 20 66 | 6f 6e 74 4e 75 6d 29 3b |naco", f|ontNum);|
|00002f10| 0d 09 69 66 20 28 2a 66 | 6f 6e 74 4e 75 6d 20 3d |..if (*f|ontNum =|
|00002f20| 3d 20 30 29 20 2a 66 6f | 6e 74 4e 75 6d 20 3d 20 |= 0) *fo|ntNum = |
|00002f30| 61 70 70 6c 46 6f 6e 74 | 3b 0d 09 72 65 74 75 72 |applFont|;..retur|
|00002f40| 6e 20 66 61 6c 73 65 3b | 0d 7d 0d 0d 0d 0d 2f 2a |n false;|.}..../*|
|00002f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 09 47 65 |--------|----..Ge|
|00002fa0| 74 46 6f 6e 74 4c 69 6e | 65 48 65 69 67 68 74 20 |tFontLin|eHeight |
|00002fb0| 0d 09 0d 09 47 65 74 20 | 74 68 65 20 6c 69 6e 65 |....Get |the line|
|00002fc0| 20 68 65 69 67 68 74 20 | 69 6e 20 70 69 78 65 6c | height |in pixel|
|00002fd0| 73 20 6f 66 20 61 20 77 | 69 6e 64 6f 77 20 66 6f |s of a w|indow fo|
|00002fe0| 6e 74 2e 0d 09 09 09 0d | 09 45 6e 74 72 79 3a 09 |nt......|.Entry:.|
|00002ff0| 77 69 6e 64 20 3d 20 70 | 6f 69 6e 74 65 72 20 74 |wind = p|ointer t|
|00003000| 6f 20 77 69 6e 64 6f 77 | 2e 0d 09 0d 09 45 78 69 |o window|.....Exi|
|00003010| 74 3a 09 66 75 6e 63 74 | 69 6f 6e 20 72 65 73 75 |t:.funct|ion resu|
|00003020| 6c 74 20 3d 20 6c 69 6e | 65 20 68 65 69 67 68 74 |lt = lin|e height|
|00003030| 2e 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------|
|00003040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|00003080| 0d 0d 73 68 6f 72 74 20 | 47 65 74 46 6f 6e 74 4c |..short |GetFontL|
|00003090| 69 6e 65 48 65 69 67 68 | 74 20 28 57 69 6e 64 6f |ineHeigh|t (Windo|
|000030a0| 77 50 74 72 20 77 69 6e | 64 29 0d 7b 0d 09 46 6f |wPtr win|d).{..Fo|
|000030b0| 6e 74 49 6e 66 6f 20 66 | 49 6e 66 6f 3b 0d 09 47 |ntInfo f|Info;..G|
|000030c0| 72 61 66 50 74 72 20 70 | 6f 72 74 3b 0d 0d 09 47 |rafPtr p|ort;...G|
|000030d0| 65 74 50 6f 72 74 28 26 | 70 6f 72 74 29 3b 0d 09 |etPort(&|port);..|
|000030e0| 53 65 74 50 6f 72 74 28 | 77 69 6e 64 29 3b 0d 09 |SetPort(|wind);..|
|000030f0| 47 65 74 46 6f 6e 74 49 | 6e 66 6f 28 26 66 49 6e |GetFontI|nfo(&fIn|
|00003100| 66 6f 29 3b 0d 09 53 65 | 74 50 6f 72 74 28 70 6f |fo);..Se|tPort(po|
|00003110| 72 74 29 3b 0d 09 72 65 | 74 75 72 6e 20 66 49 6e |rt);..re|turn fIn|
|00003120| 66 6f 2e 61 73 63 65 6e | 74 20 2b 20 66 49 6e 66 |fo.ascen|t + fInf|
|00003130| 6f 2e 64 65 73 63 65 6e | 74 20 2b 20 66 49 6e 66 |o.descen|t + fInf|
|00003140| 6f 2e 6c 65 61 64 69 6e | 67 3b 0d 7d 0d 0d 0d 0d |o.leadin|g;.}....|
|00003150| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00003160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 09 |--------|------..|
|000031a0| 4f 75 74 6c 69 6e 65 52 | 65 67 69 6f 6e 20 0d 09 |OutlineR|egion ..|
|000031b0| 0d 09 43 68 61 6e 67 65 | 20 61 20 72 65 67 69 6f |..Change| a regio|
|000031c0| 6e 20 69 6e 74 6f 20 61 | 20 74 72 61 63 69 6e 67 |n into a| tracing|
|000031d0| 20 6f 66 20 69 74 73 20 | 62 6f 72 64 65 72 20 77 | of its |border w|
|000031e0| 68 69 63 68 20 69 73 20 | 61 70 70 72 6f 70 72 69 |hich is |appropri|
|000031f0| 61 74 65 20 0d 09 66 6f | 72 20 6e 6f 72 6d 61 6c |ate ..fo|r normal|
|00003200| 20 64 72 61 67 67 69 6e | 67 2e 0d 09 09 09 0d 09 | draggin|g.......|
|00003210| 45 6e 74 72 79 3a 09 74 | 68 65 52 67 6e 20 3d 20 |Entry:.t|heRgn = |
|00003220| 68 61 6e 64 6c 65 20 74 | 6f 20 72 65 67 69 6f 6e |handle t|o region|
|00003230| 2e 0d 09 0d 09 45 78 69 | 74 3a 09 52 65 67 69 6f |.....Exi|t:.Regio|
|00003240| 6e 20 63 68 61 6e 67 65 | 64 20 74 6f 20 6f 75 74 |n change|d to out|
|00003250| 6c 69 6e 65 20 6f 66 20 | 72 65 67 69 6f 6e 2e 0d |line of |region..|
|00003260| 09 0d 09 46 72 6f 6d 20 | 41 70 70 6c 65 20 22 48 |...From |Apple "H|
|00003270| 46 53 20 44 72 61 67 20 | 53 61 6d 70 6c 65 22 20 |FS Drag |Sample" |
|00003280| 73 61 6d 70 6c 65 20 63 | 6f 64 65 2e 0d 2d 2d 2d |sample c|ode..---|
|00003290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0d 76 6f 69 |--------|-*/..voi|
|000032e0| 64 20 4f 75 74 6c 69 6e | 65 52 65 67 69 6f 6e 20 |d Outlin|eRegion |
|000032f0| 28 52 67 6e 48 61 6e 64 | 6c 65 20 74 68 65 52 67 |(RgnHand|le theRg|
|00003300| 6e 29 0d 7b 0d 09 52 67 | 6e 48 61 6e 64 6c 65 20 |n).{..Rg|nHandle |
|00003310| 74 65 6d 70 52 67 6e 3b | 0d 09 0d 09 74 65 6d 70 |tempRgn;|....temp|
|00003320| 52 67 6e 20 3d 20 4e 65 | 77 52 67 6e 28 29 3b 0d |Rgn = Ne|wRgn();.|
|00003330| 09 43 6f 70 79 52 67 6e | 28 74 68 65 52 67 6e 2c |.CopyRgn|(theRgn,|
|00003340| 20 74 65 6d 70 52 67 6e | 29 3b 0d 09 49 6e 73 65 | tempRgn|);..Inse|
|00003350| 74 52 67 6e 28 74 65 6d | 70 52 67 6e 2c 20 31 2c |tRgn(tem|pRgn, 1,|
|00003360| 20 31 29 3b 0d 09 44 69 | 66 66 52 67 6e 28 74 68 | 1);..Di|ffRgn(th|
|00003370| 65 52 67 6e 2c 20 74 65 | 6d 70 52 67 6e 2c 20 74 |eRgn, te|mpRgn, t|
|00003380| 68 65 52 67 6e 29 3b 0d | 09 44 69 73 70 6f 73 65 |heRgn);.|.Dispose|
|00003390| 52 67 6e 28 74 65 6d 70 | 52 67 6e 29 3b 0d 7d 0d |Rgn(temp|Rgn);.}.|
|000033a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003400| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00003410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003430| 0a 64 72 61 77 75 74 69 | 6c 2e 63 00 02 00 00 00 |.drawuti|l.c.....|
|00003440| 54 45 58 54 4d 4d 43 43 | 01 00 00 00 01 00 00 00 |TEXTMMCC|........|
|00003450| 00 00 54 45 58 54 4d 4d | 43 43 01 00 00 00 01 00 |..TEXTMM|CC......|
|00003460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003470| 00 00 aa 4f 89 df 00 00 | 33 20 00 00 01 9a 6c 65 |...O....|3 ....le|
|00003480| 20 74 68 65 54 45 2c 20 | 43 6f 6e 74 72 6f 6c 48 | theTE, |ControlH|
|00003490| 61 6e 64 6c 65 20 76 53 | 63 72 6f 6c 6c 29 0d 7b |andle vS|croll).{|
|000034a0| 0d 09 54 45 53 63 72 6f | 6c 6c 53 63 72 6f 6c 6c |..TEScro|llScroll|
|000034b0| 52 61 6e 67 65 49 6e 74 | 6f 56 69 65 77 28 74 68 |RangeInt|oView(th|
|000034c0| 65 54 45 2c 20 28 2a 2a | 74 68 65 54 45 29 2e 73 |eTE, (**|theTE).s|
|000034d0| 65 6c 53 74 61 72 74 2c | 20 28 2a 2a 74 68 65 54 |elStart,| (**theT|
|000034e0| 45 29 2e 73 65 6c 45 6e | 64 2c 0d 09 09 76 53 63 |E).selEn|d,...vSc|
|000034f0| 72 6f 6c 6c 29 3b 0d 7d | 0d 0d 0d 0d 2f 2a 2d 2d |roll);.}|..../*--|
|00003500| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00003510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003520| 00 00 00 00 00 00 00 03 | 00 04 fe d9 04 9e 02 03 |........|........|
|00003530| 06 fd fe d9 04 9e 02 03 | 06 fd ac 1d 7b 00 00 00 |........|....{...|
|00003540| 07 f6 00 00 08 0a 00 00 | 06 f5 01 00 00 00 00 04 |........|........|
|00003550| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|00003560| 00 00 00 46 01 37 be f8 | 1a 14 00 00 00 1c 00 46 |...F.7..|.......F|
|00003570| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00003580| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00003590| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|000035a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+